home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / beam2b.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  575b  |  38 lines
  1. /* simple beam */
  2. options results
  3.  
  4. if ~show('ports', "AMI2D") then do
  5.     address command 'run ami2d:bin/ami2d'
  6.     do while ~show('ports', "AMI2D")
  7.     end
  8. end
  9.  
  10. address ami2d
  11.  
  12. call 'ami2d:rexx/pstress'
  13.  
  14. h = 0.5
  15. L = 10.0
  16. E1 = 10.0e6
  17. nu1 = 0.3000
  18. adt1 = 5.0e-5*100
  19.  
  20. 'reset'
  21. 'iso(1,'E1','nu1',struct,'adt1')'
  22. do i=0 to 20
  23.     xx = L*i/20
  24.     'node('i + 1','xx',0.0)'
  25.     'node('i + 31','xx','h')'
  26. end
  27. do i=0 to 19
  28.     'quad4('i + 1',1,'i + 1','i + 2','i + 32','i + 31')'
  29. end
  30. 'dispx(1,0.0)'
  31. 'dispy(1,0.0)'
  32. 'dispx(31,0.0)'
  33. 'dispx(21,0.0)'
  34. 'dispx(51,0.0)'
  35. 'check'
  36. say result
  37. exit
  38.